home *** CD-ROM | disk | FTP | other *** search
/ HTBasic 9.3 / HTBasic 9.3.iso / LgcyPlus / disk2 / LABLWDGT._ / LABLWDGT.
Encoding:
Text File  |  2001-03-02  |  890 b   |  28 lines
  1. 10    ! ********************************************************
  2. 20    ! Example: LABEL Widget
  3. 30    !
  4. 40    ! This program generates a LABEL widget.
  5. 50    !
  6. 60    ! ********************************************************
  7. 70    !
  8. 80    INTEGER N
  9. 90    DIM S$[256]
  10. 100   ASSIGN @L TO WIDGET "LABEL";SET ("VISIBLE":0)
  11. 110   CONTROL @L;SET ("COLUMNS":28,"ROWS":8,"TITLE":" Example: LABEL Widget")
  12. 120   CONTROL @L;SET ("X":100,"Y":50,"JUSTIFICATION":"TOP,LEFT","WORD WRAP":1)
  13. 130   CONTROL @L;SET ("SYSTEM MENU":"Quit")
  14. 140    !
  15. 150   FOR N=1 TO 8
  16. 160     S$=S$&" ITEM "&VAL$(N)&": VALUE "&VAL$(N)&" "
  17. 170     IF N<8 THEN S$=S$&CHR$(10)
  18. 180   NEXT N
  19. 190   CONTROL @L;SET ("VALUE":S$,"VISIBLE":1)
  20. 200   ON EVENT @L,"SYSTEM MENU" GOTO Finis
  21. 210   LOOP
  22. 220     WAIT FOR EVENT
  23. 230   END LOOP
  24. 240   !
  25. 250 Finis: !
  26. 260   ASSIGN @L TO *   ! Deletes LABEL widget
  27. 270   END
  28.